home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Arsenal
/
OS2 Arsenal v1.0 (Disc 1)(Arsenal Computer).ISO
/
os2_prog
/
defprn.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-07-21
|
569b
|
17 lines
/* Sample code to query the default printer port */
/* Lee S. Fields */
/* */
/* No guarantees, but it works for me. */
call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
call sysloadfuncs
defprn = SysIni('BOTH', 'PM_SPOOLER', 'PRINTER')
defprn = strip(defprn,,'00'x)
defprn = strip(defprn,,';')
defport = SysIni('BOTH', 'PM_SPOOLER_PRINTER', defprn)
defport = word(translate(defport, ' ', ';'), 1)
say 'Default printer port is:' defport